home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Collection of Tools & Utilities
/
Collection of Tools and Utilities.iso
/
comm
/
zcommbar.zip
/
PURSUIT.T
< prev
next >
Wrap
Text File
|
1987-12-22
|
3KB
|
52 lines
pursuit cls;lput "Calling Pursuit - ";ena -7e;speed 1200
233-7104 ::Put your PC-Pursuit phone number here
pat 1i TELENET;while !1 put "\r" wait -f1
pat 1i "TERMINAL=";wait;put "D1\r";pat 1i @;wait; if !1 o fail
goto main2
city
main2: cls;display nlmode nooverstrike;pH0
lput " ╔═══════════════════════════════════════════╗\n"
lput " ║ Area Code │ City ║\n"
lput " ╠═══════════════════════════════════════════╣\n"
lput " ║ 201 - Newark 216 - Cleveland ║\n"
lput " ║ 202 - Washington 305 - Miami ║\n"
lput " ║ 206 - Seattle 408 - San Jose ║\n"
lput " ║ 212 - New York City 414 - Milwaukee ║\n"
lput " ║ 213 - Los Angeles 503 - Portland ║\n"
lput " ║ 214 - Dallas 602 - Phoenix ║\n"
lput " ║ 215 - Philadelphia 612 - Minneapolis ║\n"
lput " ║ 303 - Denver 801 - Salt Lake City ║\n"
lput " ║ 312 - Chicago 813 - Tampa ║\n"
lput " ║ 313 - Detroit 818 - Glendale ║\n"
lput " ║ 404 - Atlanta 919 - Res. Tri. Park ║\n"
lput " ║ 415 - San Fransisco ║\n"
lput " ║ 617 - Boston ║\n"
lput " ║ 713 - Houston x - HANGUP ║\n"
lput " ╠═══════════════════════════════════════════╣\n"
lput " ║ Enter Area Code of City --> ___ ║\n"
lput " ╚═══════════════════════════════════════════╝\n"
acceptl3 s9 "\E[19;50H";cls;display nonlmode
if is9,x put "hangup\r";sleep 20;fail
goto cdial
cdial: pat 1 CONNECT;pat 2l BUSY;pat 3l "?"
::In the next lines put your ID and Password in place of XXX YYY
put "C DIAL\&%s9\&/12,XXXXXXXXXXXX,YYYYYYYY\r" wait -f8
if 1 goto onit
put "C DIAL\&%s9\&/12,XXXXXXXXXXXX,YYYYYYYY\r" wait -f8
if 1 goto onit
put "C DIAL\&%s9\&/12,XXXXXXXXXXXX,YYYYYYYY\r" wait -f8
if 1 goto onit
pH1;echo "New City?";if y goto main2
pH0;cls;goto cdial
onit: ena -8g;cls;put "@\r\336\Set? 1:0,5:1,7:8\r";pat 1i "@";wait;put "cont\r"
pat 1i "OK";pat 2i *
while n put "\336\ATZ\r" wait -f3
if 1 while !2 put \5\r wait -f3
call .%s9.t